Finalize_TokenStack Subroutine

  1. FEQParse_TokenStack.f90
  2. FEQParse_TokenStack
  3. Finalize_TokenStack

public subroutine Finalize_TokenStack(stack)

Arguments

TypeIntentOptionalAttributesName
class(TokenStack), intent(inout) :: stack

Contents

Source Code

Finalize_TokenStack

Source Code

  subroutine Finalize_TokenStack(stack)
    class(TokenStack),intent(inout) :: stack

    if(allocated(stack%tokens)) deallocate(stack%tokens)

  endsubroutine Finalize_TokenStack