histzero_sub Subroutine

private subroutine histzero_sub(this)

Type Bound

history_stack_t

Arguments

Type	Intent	Optional	Attributes		Name
class(history_stack_t)				::	this

Source Code

    subroutine histzero_sub(this)
                
        class(history_stack_t) :: this

        if(allocated(this%data))deallocate(this%data)
        this%size = 0

    end subroutine histzero_sub