SUBROUTINE GetICEGeneratorResults(GeneratorType, GeneratorIndex, &
GeneratorPower, GeneratorEnergy, ThermalPower, ThermalEnergy)
! SUBROUTINE INFORMATION:
! AUTHOR <author>
! DATE WRITTEN <date_written>
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! <description>
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: GeneratorType ! type of Generator
INTEGER, INTENT(IN) :: GeneratorIndex
REAL(r64), INTENT(OUT) :: GeneratorPower ! electrical power
REAL(r64), INTENT(OUT) :: GeneratorEnergy ! electrical energy
REAL(r64), INTENT(OUT) :: ThermalPower ! heat power
REAL(r64), INTENT(OUT) :: ThermalEnergy ! heat energy
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
GeneratorPower = ICEngineGeneratorReport(GeneratorIndex)%PowerGen
GeneratorEnergy = ICEngineGeneratorReport(GeneratorIndex)%EnergyGen
ThermalPower = ICEngineGeneratorReport(GeneratorIndex)%QTotalHeatRecovered
ThermalEnergy = ICEngineGeneratorReport(GeneratorIndex)%TotalHeatEnergyRec
RETURN
END SUBROUTINE GetICEGeneratorResults