histempty_fn Function

private function histempty_fn(this)

Type Bound

history_stack_t

Arguments

Type IntentOptional Attributes Name
class(history_stack_t) :: this

Return Value logical


Source Code

    logical function histempty_fn(this)

        class(history_stack_t) :: this

        histempty_fn = (this%size == 0 .or. .not. allocated(this%data))

    end function histempty_fn