Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(out) | :: | FuelTypeNumber | |||
character(len=*), | intent(in) | :: | FuelTypeAlpha | |||
character(len=*), | intent(out) | :: | FuelTypeString | |||
character(len=*), | intent(in) | :: | CurrentModuleObject | |||
character(len=*), | intent(in) | :: | CurrentField | |||
character(len=*), | intent(in) | :: | CurrentName |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE ValidateFuelType(FuelTypeNumber,FuelTypeAlpha,FuelTypeString,CurrentModuleObject,CurrentField,CurrentName)
! SUBROUTINE INFORMATION:
! AUTHOR Linda K. Lawrie
! DATE WRITTEN January 2001
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine compares the input Fuel Type value against the
! valid values and sets the correct in the returned FuelTypeNumber.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE InputProcessor, ONLY: SameString
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(OUT) :: FuelTypeNumber ! Fuel Type to be set in structure.
CHARACTER(len=*), INTENT(IN) :: FuelTypeAlpha ! Fuel Type String
CHARACTER(len=*), INTENT(OUT) :: FuelTypeString ! Standardized Fuel Type String (for variable naming)
CHARACTER(len=*), INTENT(IN) :: CurrentModuleObject ! object being parsed
CHARACTER(len=*), INTENT(IN) :: CurrentField ! current field being parsed
CHARACTER(len=*), INTENT(IN) :: CurrentName ! current object name being parsed
! SUBROUTINE PARAMETER DEFINITIONS:
CHARACTER(len=*), PARAMETER :: RoutineName='ValidateFuelType: '
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
FuelTypeNumber=0
FuelTypeString=' '
!Select the correct Number for the associated ascii name for the fuel type
IF (SameString(FuelTypeAlpha,'Electricity') .or. SameString(FuelTypeAlpha,'Electric')) THEN
FuelTypeNumber=ElecUse
FuelTypeString='Electric'
ENDIF
IF (SameString(FuelTypeAlpha,'Gas').or. SameString(FuelTypeAlpha,'NaturalGas')) THEN
IF (SameString(FuelTypeAlpha,'Gas')) THEN
CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//trim(CurrentName)//'".')
CALL ShowContinueError('Deprecated value in '//TRIM(CurrentField)//'="'// &
TRIM(FuelTypeAlpha)//'", using "NaturalGas".')
ENDIF
FuelTypeNumber=GasUse
FuelTypeString='Gas'
ENDIF
IF (SameString(FuelTypeAlpha,'Coal')) THEN
FuelTypeNumber=CoalUse
FuelTypeString='Coal'
ENDIF
IF (SameString(FuelTypeAlpha,'FuelOil#1')) THEN
FuelTypeNumber=FuelOil1Use
FuelTypeString='FuelOil#1'
ENDIF
IF (SameString(FuelTypeAlpha,'PropaneGas') .or. SameString(FuelTypeAlpha,'LPG')) THEN
IF (SameString(FuelTypeAlpha,'LPG')) THEN
CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//trim(CurrentName)//'".')
CALL ShowContinueError('Deprecated value in '//TRIM(CurrentField)//'="'// &
TRIM(FuelTypeAlpha)//'", using "PropaneGas".')
ENDIF
FuelTypeNumber=LPGUse
FuelTypeString='Propane'
ENDIF
IF (SameString(FuelTypeAlpha,'Gasoline')) THEN
FuelTypeNumber=GasolineUse
FuelTypeString='Gasoline'
ENDIF
IF (SameString(FuelTypeAlpha,'Diesel')) THEN
FuelTypeNumber=DieselUse
FuelTypeString='Diesel'
ENDIF
IF (SameString(FuelTypeAlpha,'FuelOil#2')) THEN
FuelTypeNumber=FuelOil2Use
FuelTypeString='FuelOil#2'
ENDIF
IF (SameString(FuelTypeAlpha,'OtherFuel1')) THEN
FuelTypeNumber=OtherFuel1Use
FuelTypeString='OtherFuel1'
ENDIF
IF (SameString(FuelTypeAlpha,'OtherFuel2')) THEN
FuelTypeNumber=OtherFuel1Use
FuelTypeString='OtherFuel2'
ENDIF
IF (SameString(FuelTypeAlpha,'Water')) THEN
FuelTypeNumber=WaterUse
FuelTypeString='Water'
ENDIF
IF (SameString(FuelTypeAlpha,'Steam')) THEN
FuelTypeNumber=SteamUse
FuelTypeString='Steam'
ENDIF
IF (SameString(FuelTypeAlpha,'DistrictCooling')) THEN
FuelTypeNumber=DistrictCoolUse
FuelTypeString='DistrictCooling'
ENDIF
IF (SameString(FuelTypeAlpha,'DistrictHeating')) THEN
FuelTypeNumber=DistrictHeatUse
FuelTypeString='DistrictHeating'
ENDIF
RETURN
END SUBROUTINE ValidateFuelType