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(in) | :: | Value |
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 SetAllFlowLocks(Value)
! SUBROUTINE INFORMATION:
! AUTHOR Edwin Lee
! DATE WRITTEN November 2009
! MODIFIED na
! RE-ENGINEERED na
!
! PURPOSE OF THIS SUBROUTINE:
! This subroutine will set both loopside flowlocks on all plant loops to the input value (0 or 1)
! Initially this routine is used as a quick replacement for the FlowLock=0 and FlowLock=1 statements
! in order to provide the same behavior through phase I of the demand side rewrite
! Eventually this routine may be employed again to quickly initialize all loops once phase III is complete
!
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
!
! REFERENCES:
! na
!
! USE STATEMENTS:
USE DataPlant, ONLY : PlantLoop
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: Value
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: LoopNum
INTEGER :: LoopSideNum
INTEGER :: NumCount
! Flow:
IF (ALLOCATED(PlantLoop)) THEN
NumCount=SIZE(PlantLoop)
ELSE
NumCount=0
ENDIF
DO LoopNum = 1, NumCount !SIZE(PlantLoop)
DO LoopSideNum = 1, SIZE(PlantLoop(LoopNum)%LoopSide)
PlantLoop(LoopNum)%LoopSide(LoopSideNum)%FlowLock = Value
END DO
END DO
END SUBROUTINE SetAllFlowLocks