Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | LoopNum | |||
integer, | intent(in) | :: | ThisSide |
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.
REAL(r64) FUNCTION CalcOtherSideDemand(LoopNum, ThisSide) RESULT(Demand)
! FUNCTION INFORMATION:
! AUTHOR Edwin Lee
! DATE WRITTEN August 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! To evaluate the demand to hit the loop setpoint based on the loop side inlet conditions
! METHODOLOGY EMPLOYED:
! This routine will simply call the evaluate loop setpoint routine but call it from
! the very beginning of this loop side, so that it is basically for the entire loop side
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: LoopNum
INTEGER, INTENT(IN) :: ThisSide
! FUNCTION PARAMETER DEFINITIONS:
INTEGER, DIMENSION(1), PARAMETER :: InitCompArray = (/0/)
Demand = EvaluateLoopSetPointLoad(LoopNum, ThisSide, 1, 1, InitCompArray)
RETURN
END FUNCTION CalcOtherSideDemand