SUBROUTINE SetAllPlantSimFlagsToValue(Value)
! SUBROUTINE INFORMATION:
! AUTHOR Edwin Lee
! DATE WRITTEN November 2009
! MODIFIED na
! RE-ENGINEERED B. Griffith Feb 2009 DSU3
!
! PURPOSE OF THIS SUBROUTINE:
! Quickly sets all sim flags of a certain type (loop type/side) to a value
!
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
LOGICAL, INTENT(IN) :: Value
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: LoopCtr
!Loop over all loops
DO LoopCtr = 1, TotNumLoops
PlantLoop(LoopCtr)%LoopSide(DemandSide)%SimLoopSideNeeded = Value
PlantLoop(LoopCtr)%LoopSide(SupplySide)%SimLoopSideNeeded = Value
END DO
END SUBROUTINE SetAllPlantSimFlagsToValue