Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | LoopName | |||
character(len=*), | intent(in) | :: | ConnectorListName | |||
integer, | intent(out) | :: | NumSplitters | |||
integer, | intent(out) | :: | NumMixers | |||
logical, | intent(inout) | :: | ErrorsFound |
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.
SUBROUTINE GetNumSplitterMixerInConntrList(LoopName,ConnectorListName,NumSplitters,NumMixers,ErrorsFound)
! SUBROUTINE INFORMATION:
! AUTHOR Sankaranarayanan K P
! DATE WRITTEN April 2005
! MODIFIED Linda Lawrie - September 2005
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine returns the number of splitter and mixers in a connector list item
! The data is filled from the idd object 'ConnectorList'
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
CHARACTER(len=*), INTENT(IN) :: LoopName ! Loop Name for this Splitter (used in error message)
CHARACTER(len=*), INTENT(IN) :: ConnectorListName ! Requested Connector List Name
INTEGER, INTENT(OUT) :: NumSplitters ! Number of splitters in the loop
INTEGER, INTENT(OUT) :: NumMixers ! Number of mixers in the loop
LOGICAL, INTENT(INOUT) :: ErrorsFound ! if no connector list
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: ConnNum
IF (GetConnectorListInputFlag) THEN
CALL GetConnectorListInput
GetConnectorListInputFlag=.false.
ENDIF
NumSplitters = 0
NumMixers = 0
ConnNum=FindItemInList(ConnectorListName,ConnectorLists%Name,NumOfConnectorLists)
IF (ConnNum > 0) THEN
NumSplitters=ConnectorLists(ConnNum)%NumOfSplitters
NumMixers=ConnectorLists(ConnNum)%NumOfMixers
ELSE
CALL ShowSevereError('Ref: Loop='//TRIM(LoopName)//', Connector List not found='//TRIM(ConnectorListName))
ErrorsFound=.true.
END IF
RETURN
END SUBROUTINE GetNumSplitterMixerInConntrList