Print_PostfixTokens Subroutine

  1. FEQParse.f90
  2. FEQParse
  3. Print_PostfixTokens

private subroutine Print_PostfixTokens(parser)

Arguments

TypeIntentOptionalAttributesName
class(EquationParser), intent(in) :: parser

Contents

Source Code

Print_PostfixTokens

Source Code

  subroutine Print_PostfixTokens(parser)
    class(EquationParser),intent(in) :: parser
    ! Local
    integer :: i

    do i = 1,parser%postFix%top_index
      print*,trim(parser%postFix%tokens(i)%tokenString),parser%postFix%tokens(i)%tokenType
    enddo

  endsubroutine Print_PostfixTokens