Construct_TokenStack Subroutine

  1. FEQParse_TokenStack.f90
  2. FEQParse_TokenStack
  3. Construct_TokenStack

public subroutine Construct_TokenStack(stack, N)

Arguments

TypeIntentOptionalAttributesName
class(TokenStack), intent(out) :: stack
integer, intent(in) :: N

Contents

Source Code

Construct_TokenStack

Source Code

  subroutine Construct_TokenStack(stack,N)
    class(TokenStack),intent(out) :: stack
    integer,intent(in)            :: N

    allocate(stack%tokens(1:N))
    stack%top_index = 0

  endsubroutine Construct_TokenStack