IsSeparator Function

  1. FEQParse.f90
  2. FEQParse
  3. IsSeparator

private function IsSeparator(eqChar)

Arguments

TypeIntentOptionalAttributesName
character(len=1) :: eqChar

Return Value logical


Contents

Source Code

IsSeparator

Source Code

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

    IsSeparator = .false.
    do i = 1,nSeparators

      if(eqChar == separators(i)) then
        IsSeparator = .true.
      endif

    enddo

  endfunction IsSeparator