IsNumber Function

  1. FEQParse.f90
  2. FEQParse
  3. IsNumber

private function IsNumber(eqChar)

Arguments

TypeIntentOptionalAttributesName
character(len=1) :: eqChar

Return Value logical


Contents

Source Code

IsNumber

Source Code

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

    IsNumber = .false.

    if(eqChar == '.' .or. eqChar == 'p' .or. eqChar == 'P') then
      IsNumber = .true.
      return
    endif

    do i = 1,10

      if(eqChar == numbers(i)) then
        IsNumber = .true.
        return
      endif

    enddo

  endfunction IsNumber