IsOperator Function

  1. FEQParse.f90
  2. FEQParse
  3. IsOperator

private function IsOperator(eqChar)

Arguments

TypeIntentOptionalAttributesName
character(len=1) :: eqChar

Return Value logical


Contents

Source Code

IsOperator

Source Code

  logical function IsOperator(eqChar)
    character(1) :: eqChar
    ! Local
    integer :: i

    IsOperator = .false.
    do i = 1,5

      if(eqChar == operators(i)) then
        IsOperator = .true.
        return
      endif
    enddo

  endfunction IsOperator