Print_InfixTokens Subroutine

  1. FEQParse.f90
  2. FEQParse
  3. Print_InfixTokens

private subroutine Print_InfixTokens(parser)

Arguments

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

Contents

Source Code

Print_InfixTokens

Source Code

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

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

  endsubroutine Print_InfixTokens