Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | NodeNum | |||
integer, | intent(in) | :: | SetPtType |
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.
LOGICAL FUNCTION IsNodeOnSetPtManager(NodeNum,SetPtType)
! FUNCTION INFORMATION:
! AUTHOR Sankaranarayanan K P
! DATE WRITTEN January 2007
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Determines if a particular node is acted upon by a specific setpoint manager
! METHODOLOGY EMPLOYED:
! Cycle through all setpoint managers and find if the node passed in has a setpoint manager of passed
! in type associated to it.
! REFERENCES:
! na
! USE STATEMENTS:
INTEGER, INTENT(IN) :: NodeNum
INTEGER, INTENT(IN) :: SetPtType
INTEGER SetPtMgrNum
INTEGER NumNode
! First time called, get the input for all the setpoint managers
IF (GetInputFlag) THEN
CALL GetSetPointManagerInputs
GetInputFlag = .FALSE.
END IF
IsNodeOnSetPtManager = .FALSE.
DO SetPtMgrNum = 1, NumSchSetPtMgrs
IF(SetPtType == SchSetPtMgr(SetPtMgrNum)%CtrlTypeMode) THEN
DO NumNode = 1, SchSetPtMgr(SetPtMgrNum)%NumCtrlNodes
IF(NodeNum == SchSetPtMgr(SetPtMgrNum)%CtrlNodes(NumNode)) THEN
IsNodeOnSetPtManager = .TRUE.
EXIT
END IF
END DO
END IF
END DO
RETURN
END FUNCTION IsNodeOnSetPtManager