tem_eTypeIsValid Function

private pure function tem_eTypeIsValid(eT) result(isValid)

Arguments

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

Return Value logical


Called by

proc~~tem_etypeisvalid~~CalledByGraph proc~tem_etypeisvalid tem_eTypeIsValid proc~append_element append_element proc~append_element->proc~tem_etypeisvalid proc~changetype_element changeType_element proc~changetype_element->proc~tem_etypeisvalid proc~changetype_element_vec changeType_element_vec proc~changetype_element_vec->proc~tem_etypeisvalid interface~append~34 append interface~append~34->proc~append_element interface~changetype changeType interface~changetype->proc~changetype_element interface~changetype->proc~changetype_element_vec proc~communicate_elements communicate_elements proc~communicate_elements->interface~changetype proc~identify_lists identify_lists proc~communicate_elements->proc~identify_lists proc~redefine_halos redefine_halos proc~communicate_elements->proc~redefine_halos proc~identify_lists->interface~changetype proc~redefine_halos->interface~changetype proc~tem_find_allelements tem_find_allElements proc~tem_find_allelements->proc~communicate_elements proc~tem_find_allelements->proc~identify_lists

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