SUBROUTINE GetUTSCTsColl(UTSCNum, TsColl)
! SUBROUTINE INFORMATION:
! AUTHOR <author>
! DATE WRITTEN <date_written>
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! object oriented "Get" routine for collector surface temperature
! METHODOLOGY EMPLOYED:
! access derived type
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: UTSCNum
REAL(r64), INTENT(OUT) :: TsColl
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
TsColl = UTSC(UTSCNum)%Tcoll
RETURN
END SUBROUTINE GetUTSCTsColl