tem_eTypeIsValid Function

private pure function tem_eTypeIsValid(eT) result(isValid)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: eT

Return Value logical


Source Code

  pure function tem_eTypeIsValid( eT ) result( isValid )
    ! ---------------------------------------------------------------------------
    integer, intent(in) :: eT
    logical :: isValid
    ! ---------------------------------------------------------------------------

    if ( (eT >= eT_minNumber) .and. (eT <= eT_maxNumber) ) then
      isValid = .true.
    else
      isValid = .false.
    end if
  end function tem_eTypeIsValid