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 | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | CompType | |||
| character(len=*), | intent(in) | :: | CompName | 
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.
INTEGER FUNCTION GetAirBranchIndex(CompType, CompName)
          ! FUNCTION INFORMATION:
          !       AUTHOR         Richard Raustad, FSEC
          !       DATE WRITTEN   April 2013
          !       MODIFIED       na
          !       RE-ENGINEERED  na
          ! PURPOSE OF THIS FUNCTION:
          ! This function returns the branch index so that the calling
          ! routine can search for a fan on this branch or use branch flow for sizing.
          ! METHODOLOGY EMPLOYED:
          ! na
          ! REFERENCES:
          ! na
          ! USE STATEMENTS:
  USE DataInterfaces, ONLY: ShowSevereError
  IMPLICIT NONE    ! Enforce explicit typing of all variables in this routine
          ! FUNCTION ARGUMENT DEFINITIONS:
  CHARACTER(len=*), INTENT(IN) :: CompType
  CHARACTER(len=*), INTENT(IN) :: CompName
          ! FUNCTION PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS
          ! na
          ! DERIVED TYPE DEFINITIONS
          ! na
          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
  INTEGER BranchNum
  INTEGER CompNum
  INTEGER NumBranches
  IF (GetBranchInputFlag) THEN
    GetBranchInputFlag=.false.
    CALL GetBranchInput
  ENDIF
  NumBranches=SIZE(BRANCH)
  IF (NumBranches == 0) THEN
    CALL ShowSevereError('GetAirBranchIndex:  Branch not found with component = '//TRIM(CompType)//' "'//TRIM(CompName)//'"')
    GetAirBranchIndex=0
  ELSE
    BranchLoop: DO BranchNum = 1, NumBranches
      DO CompNum = 1, Branch(BranchNum)%NumOfComponents
        IF(SameString(CompType,Branch(BranchNum)%Component(CompNum)%CType) .AND. &
           SameString(CompName,Branch(BranchNum)%Component(CompNum)%Name))THEN
          GetAirBranchIndex=BranchNum
          EXIT BranchLoop
        END IF
      END DO
    END DO BranchLoop
  ENDIF
  RETURN
END FUNCTION GetAirBranchIndex