IsEmpty_TokenStack Function

  1. FEQParse_TokenStack.f90
  2. FEQParse_TokenStack
  3. IsEmpty_TokenStack

public function IsEmpty_TokenStack(stack)

Arguments

TypeIntentOptionalAttributesName
class(TokenStack) :: stack

Return Value logical


Contents

Source Code

IsEmpty_TokenStack

Source Code

  logical function IsEmpty_TokenStack(stack)
    class(TokenStack) :: stack

    IsEmpty_TokenStack = .false.

    if(stack%top_index <= 0) then
      IsEmpty_TokenStack = .true.
    endif

  endfunction IsEmpty_TokenStack